#!/usr/bin/perl

# Copyright 2011 Cooliris, Inc.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

chomp($svn = `svn info | grep "Last Changed Rev:"`);
($? == 0) or die("svn failed");
$revision = (split(' ', $svn))[3];

@svn = `svn propget "svn:externals"`;
($? == 0) or die("svn failed");

foreach my $line (@svn) {
  $external = (split(' ', $line))[0];
  if (length($external)) {
    chomp($svn = `svn info "$external" | grep "Last Changed Rev:"`);
    ($? == 0) or die("svn failed");
    $externalRevision = (split(' ', $svn))[3];
    if ($externalRevision > $revision) {
      $revision = $externalRevision;
    }
  }
}

print("$revision\n");
